home *** CD-ROM | disk | FTP | other *** search
/ Red Eye Press Kit / Red Eye Press Kit.iso / pc / main.dxr / SCRIPTS_15_Preview.ls < prev    next >
Encoding:
Text File  |  2005-07-18  |  746 b   |  32 lines
  1. property xLib, initImage
  2. global previewImage
  3.  
  4. on getPropertyDescriptionList
  5.   rangeList = []
  6.   xLib = "PREVIEWS"
  7.   repeat with x = 1 to the number of castMembers of castLib xLib
  8.     if member(x, xLib).type = #bitmap then
  9.       rangeList.add(member(x, xLib).name)
  10.     end if
  11.   end repeat
  12.   description = [:]
  13.   addProp(description, #initImage, [#default: EMPTY, #format: #string, #comment: "rollover image:", #range: rangeList])
  14.   return description
  15. end
  16.  
  17. on beginSprite me
  18.   previewImage = initImage
  19.   xLib = "PREVIEWS"
  20.   sprite(me.spriteNum).member = member(initImage, xLib)
  21.   updateStage()
  22. end
  23.  
  24. on updatePreview me, x, y
  25.   if y = VOID then
  26.     y = xLib
  27.   end if
  28.   previewImage = x
  29.   sprite(me.spriteNum).member = member(x, y)
  30.   updateStage()
  31. end
  32.